PROC main:
local bigbit%, i%(4), k%, j%
bigbit% = gloadbit( "m:\pic\dancer", 0 )
i%(1) = 0 : i%(2) = 5 : i%(3) = 10 : i%(4) = 15
guse 1
while 1
	gat 0, 0 : gcopy bigbit%, 0, 80 * min( i%(1), 21 - i%(1) ), 240, 80, 3
	gat 0, 80 : gcopy bigbit%, 0, 80 * min( i%(2), 21 - i%(2) ), 240, 80, 3
	gat 240, 0 : gcopy bigbit%, 0, 80 * min( i%(3), 21 - i%(3) ), 240, 80, 3
	gat 240, 80 : gcopy bigbit%, 0, 80 * min( i%(4), 21 - i%(4) ), 240, 80, 3
	if k% = 32
		giprint "Frame: " + gen$( i%(1) + 1, 2 )
		k% = get
	elseif k% = 27
		stop
	else
		k% = key
	endif
	j% = 0 : do : j% = j% + 1
		if i%(j%) = 20 : i%(j%) = 0 : else : i%(j%) = i%(j%) + 1 : endif
	until j% = 4
endwh
ENDP